www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminSysTools\D_scan_string_in_all_templates_do.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>
<LINK href="../css.css" type=text/css rel=stylesheet>
<br><br>


<DIV id="dsdf" style=" z-index:200; top:40px; left:24px;  width: 306px; height: 22px;" >

<%
if request("qiye")="1" then
scscscs2="D_scan_string_in_all_templates_qiye.asp"
else
scscscs2="D_scan_string_in_all_templates.asp"

end if
%>

<a href="<%=scscscs2%>"><font color=#0000ff>开始新的搜索</font></a>

<br>
查找状态:

</div>
<br>
<DIV id="loading_msg" style=" z-index:200; top:80px; left:24px;  width: 306px; height: 22px;" >

请稍后......</div>

<br>


<DIV id="loading_msgb" style=" z-index:201; top:150px; left:24px;  width: 750px;" >
<hr>
正在查找中...<br>


</div>



<%

dir_set="../../"

%>

<!--#include file=../../inc/conn.asp-->

<!--#include file=../../inc/Functionb.asp-->

<!--#include file=../inc/checkadmin2.asp-->
<!--#include file=../../inc/functionFiless.asp-->

<script type="text/javascript" src="../../inc/zxml.js"></script>


<!--#include file=../../inc/ajaxLIB_no_loader.asp-->



<!--#include file=../../inc/ND_class_function.asp-->
<%


if find_dataw("qitashezhi123","0",6)<>"1" and qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if

%>

<%



Server.ScriptTimeout=9999999


session.timeout=600







if request("t")="no" then


%>

<script language=javascript>

alert("请选择模板");
history.go(-1);
</script>

<%
response.end
else


if trim(request("data1"))="" then
%>

<script language=javascript>

alert("请输入搜索关键字");
history.go(-1);
</script>

<%
response.end

else



call  all_update_qiantai_web_filenames_config_xml()

' 检测组件变量
dim isobj,VerObj,TestObj



'检查组件是否被支持及组件版本的子程序
sub ObjTest(strObj)
  on error resume next
  IsObj=false
  VerObj=""
  set TestObj=server.CreateObject (strObj)
  If -2147221005 <> Err then		'感谢网友iAmFisher的宝贵建议
    IsObj = True
    VerObj = TestObj.version
    if VerObj="" or isnull(VerObj) then VerObj=TestObj.about
  end if
  set TestObj=nothing
End sub



  ObjTest(fssoo_nd_var_str_x_customx)



if not isobj then



sss1="检测中:对不起，由于你的系统不支持FSO组件,所以无法使用本后台"

%>





<script language="javascript">

setTimeout("document.all.loading_msg.innerHTML='<font color=#000000><%=sss1%></font>';",300);

alert("对不起，由于你的系统不支持FSO组件,所以无法使用本后台");

alert("对不起，由于你的系统不支持FSO组件,所以无法使用本后台");
alert("对不起，由于你的系统不支持FSO组件,所以无法使用本后台");


</script>






<%
response.end



else

sss1="检测中:支持FSO......"








set rs112a=server.CreateObject("adodb.recordset")
rs112a.open "select * from ND_templates_folder_reg where templates_folder_path_name='"&request("t")&"'",conn,1,1
if rs112a.eof then
rs112a.close
rs112a.open "select * from ND_templates_folder_reg_qiye where templates_folder_path_name='"&request("t")&"'",conn,1,1
end if
if rs112a.eof then
response.end
end if
psss333="../../templates/"&rs112a("templates_folder_path_name")&"/"

call deletefile(psss333&"D_edit_a_template_www_aspcpu_com_newdsoft_ruandingyuan_x.asp")
call deletefile(psss333&"D_chk_edit_a_template_www_aspcpu_com_newdsoft_ruandingyuan_x.asp")
call deletefile(psss333&"checkadmin3_www_aspcpu_com_newdsoft_ruandingyuan_x.asp")
call deletefile(psss333&"D_del_a_moban_www_aspcpu_com_newdsoft_ruandingyuan_x.asp")
call deletefile(psss333&"css_www_aspcpu_com_newdsoft_ruandingyuan_x.css")
call deletefile(psss333&"fckeditor_fullpage_www_aspcpu_com_newdsoft_ruandingyuan_x.asp")
call deletefile(psss333&"fckeditor.original_fullpage_www_aspcpu_com_newdsoft_ruandingyuan_x.html")
call deletefile(psss333&"fckdialog_www_aspcpu_com_newdsoft_ruandingyuan_x.asp")
call deletefile(psss333&"fckdialog_www_aspcpu_com_newdsoft_ruandingyuan_x.html")
session("ok_hhhv")=""












%>




<script language="javascript">



var okeeee=0;
var needdo=1;
var w ;
var w2 ;



var ended=0;
var ended2=0;
var pos="";
var msg1="";







function templates_list_get(){


setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>加载 子模板 列表中....</font>';",800);
var a=AJAXcreateXMLdocument();



a.onreadystatechange=function(){
if (a.readyState==4)
{



if (a.parseError.errorCode!=0){

alert("数据读取错误,请重试,请关掉access等!!");

}

var root=a.documentElement;
var staut=root.firstChild.text;




setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"加载子模板列表成功..."+"</font>';",1500);


setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>开始搜索 ....</font>';",800);

//循环延时，防止卡住:
w2 = setInterval("do_kernel_complie()",40);


}
}
a.async=true; //异步模式
a.load("D_ajax_get_all_pages_list.asp?ppath=<%=request("t")%>");

}





templates_list_get();











needdo=1;
var pos22="";
ended2=0;
var stu="ok";
var root2;
var s2s1;
var s2s2;
var s2s3;
var s2s4;


var find_files;
var pname;
var pid;
var pth;








var a22=AJAXcreateXMLdocument();



a22.onreadystatechange=function(){
if (a22.readyState==4)
{



if (a22.parseError.errorCode!=0){

alert("数据读取错误,请重试!!");

}

root2=a22.documentElement;
s2s1=root2.firstChild.text;
s2s2=root2.childNodes[1].text;
s2s3=root2.childNodes[2].text;
s2s4=root2.childNodes[3].text;


find_files=root2.childNodes[4].text;
pname=root2.childNodes[5].text;
pid=root2.childNodes[6].text;
pth=root2.childNodes[7].text;


if (find_files!="0"&&pname!=""){


<%
if request("qiye")="1" then
scscscs="adminTemplates_qiye"
else
scscscs="adminTemplates"

end if
%>
document.all.loading_msgb.innerHTML=document.all.loading_msgb.innerHTML+">找到一个模板文件,模板文件路径"+find_files+" ,"+"<a href='../<%=scscscs%>/D_edit_template_select.asp?pname="+pname+"&pid="+pid+"&fname="+pth+"' target=_blank><font color=#ff0000>编辑</font></a><br>";


}





if (s2s1==1){ended2=1;}
pos22=s2s2;
msg1=s2s3;

needdo=1;
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"正在搜索模板文件的内容  "+msg1+",id="+pos22+"......"+"</font>';",1500);

if (ended2==0){



}

else


{
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"搜索完成......"+"</font>';",1500);

document.all.loading_msgb.innerHTML=document.all.loading_msgb.innerHTML+"<font color=#000000>"+"搜索完成......"+"</font>";

//setTimeout("self.location='D_chucuo_jilu.asp';",1000);


}



setTimeout("document.all.loading_msg.innerHTML=s2s4;",100);








}
}



















<%
	Public Function getUrlEncodela(byVal  Url)  
	  
		getUrlEncodela=""  
		If Trim(Url)="" Then Exit Function  
		For  ijj=1  To  Len(Url)  
			code=Asc(Mid(Url,ijj,1))  
			If code<0  Then code = code + 65536  
			If code>255  Then  
				getUrlEncodela=getUrlEncodela&"%"&Left(Hex(Code),2)&"%"&Right(Hex(Code),2)  
			Else  
				getUrlEncodela=getUrlEncodela&Mid(Url,ijj,1)  
			End If 
		Next  
	End Function

	Public Function Furla(url)
		Furla=Replace(url," ","%20",1,-1,1)
		Furla=getUrlEncodela(Furla)
	End Function


%>

<%


session(CacheTempx&"skeyyyqa")=request("data1")

session(CacheTempx&"okkkkeddd")="1"

%>



function do_kernel_complie(){





if (needdo==1&&ended2==0&&stu=="ok"){
needdo=0;
a22.async=true; //异步模式

a22.load("D_ajax_scan.asp?pos="+pos22+"&t=<%=request("t")%>");

}


}






</script>



<%
end if
end if
end if
%>